With Ada.Text_IO, Ada.Integer_Text_IO, Station;
Use Ada.Text_IO, Ada.Integer_Text_IO, Station;
procedure RailWays is
   stations : array(0..2) of Stat;
   --tmpStation : Stat;
   a : integer;
begin
   begin
      Put_Line("Go,GO,GO");
      Put_Line("dsae" & integer'image(5));
      for i in 0..2 loop
         setName(stations(i),"dsa" & integer'image(i));
      end loop;
      for i in 0..2 loop
         put_line(getName(stations(i)));
      end loop;
      a := 0;
      while (a /= 5) loop
         get(a);
      end loop;

   end;
end RailWays;

